home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 1 / Eagles_Nest_Mac_Collection_Disc_1.TOAST / HyperCard & XCMD⁄XFCN / HamNovTest41 / Novice Ham Test / card_66794.txt < prev    next >
Text File  |  1993-04-11  |  3KB  |  227 lines
  1. -- card: 66794 from stack: in
  2. -- bmap block id: 90156
  3. -- flags: 0000
  4. -- background id: 90881
  5. -- name: savedscores
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=62 top=37 right=53 bottom=241
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: name
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=296 top=35 right=52 bottom=444
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: date
  34.  
  35.  
  36. -- part 5 (button)
  37. -- low flags: 80
  38. -- high flags: 8000
  39. -- rect: left=353 top=6 right=56 bottom=416
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 2 / 2
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Delete Saved
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   put cd field name into foo2
  51.   get the short name of this card
  52.   put it into foo1
  53.   if it is "savedscores" then
  54.     answer "Can't delete this savedscores card" with "Cancel"
  55.     exit mouseUp
  56.   end if
  57.   if foo2 is empty then
  58.     answer "Can't delete card with no Username" with "Cancel"
  59.     exit mouseUp
  60.   end if
  61.   put "report_" & foo2 into foo
  62.   get userlevel
  63.   put it into savedlevel
  64.   set the userlevel to 5
  65.   get foo
  66.   go card it
  67.   doMenu "Delete Card"
  68.   put "savedscores_" & foo2 into foo
  69.   get foo
  70.   go card it
  71.   doMenu "Delete Card"
  72.   go card report
  73.   set the userlevel to savedlevel
  74. end mouseUp
  75.  
  76.  
  77.  
  78. -- part 6 (button)
  79. -- low flags: 80
  80. -- high flags: A000
  81. -- rect: left=417 top=11 right=55 bottom=496
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 1007 / 1007
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: Print Score
  90. ----- HyperTalk script -----
  91. on mouseUp
  92.   lock screen
  93.   open printing
  94.   put "report_" & cd field name into foo
  95.   push card
  96.   get foo
  97.   go card it
  98.   print this card
  99.   pop card
  100.   print this card
  101.   close printing
  102.   unlock screen
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part contents for background part 13
  108. ----- text -----
  109. A
  110. A
  111. A
  112. A
  113. D
  114. C
  115. A
  116. C
  117. B
  118. D
  119. A
  120. A
  121. C
  122. C
  123. D
  124. A
  125. A
  126.  
  127.  
  128. -- part contents for background part 16
  129. ----- text -----
  130. B
  131. C
  132. C
  133. D
  134. A
  135. A
  136. C
  137. C
  138. B
  139. B
  140. B
  141. B
  142. A
  143.  
  144.  
  145. -- part contents for background part 22
  146. ----- text -----
  147. #1(N1A03)
  148. #2(N1B06)
  149. #3(N1C07)
  150. #4(N1D01)
  151. #5(N1E11)
  152. #6(N1F06)
  153. #7(N1G10)
  154. #8(N1H09)
  155. #9(N1I09)
  156. #10(N1J09)
  157. #11(N2A20)
  158. #12(N2B05)
  159. #13(N3A09)
  160. #14(N4A09)
  161. #15(N4B09)
  162. #16(N4C08)
  163. #17(N4D09)
  164.  
  165.  
  166. -- part contents for background part 21
  167. ----- text -----
  168. #18(N5A01)
  169. #19(N5B07)
  170. #20(N5C05)
  171. #21(N5D01)
  172. #22(N6A07)
  173. #23(N6B05)
  174. #24(N7A02)
  175. #25(N7B04)
  176. #26(N8A05)
  177. #27(N8B09)
  178. #28(N9A06)
  179. #29(N9B07)
  180. #30(N9C11)
  181.  
  182.  
  183. -- part contents for card part 1
  184. ----- text -----
  185. michaelburke
  186.  
  187. -- part contents for card part 2
  188. ----- text -----
  189. 3/4/91
  190.  
  191. -- part contents for background part 12
  192. ----- text -----
  193. A
  194. B
  195. A
  196. A
  197. C
  198. B
  199. B
  200. A
  201. D
  202. B
  203. A
  204. D
  205. D
  206. C
  207. A
  208. C
  209. A
  210.  
  211.  
  212. -- part contents for background part 15
  213. ----- text -----
  214. C
  215. D
  216. A
  217. B
  218. A
  219. D
  220. B
  221. C
  222. B
  223. A
  224. C
  225. B
  226. B
  227.